home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / FROMUTS / DDEPASCAL / DDE / !PC / h / akbd next >
Text File  |  1992-02-10  |  2KB  |  64 lines
  1. (*
  2.  * Title: akbd.h
  3.  * Purpose: Access to keyboard under the Wimp.
  4.  *
  5.  *)
  6.  
  7. (* Standard key codes produced by Wimp, for special keys. *)
  8.  
  9. #ifndef __akbd_h
  10. #define __akbd_h
  11.  
  12. const   akbd_Fn = (256 + 128);
  13.         akbd_Sh = (16);
  14.         akbd_Ctl = (32);
  15.         akbd_TabK = (akbd_Fn + 10);
  16.         akbd_CopyK = (akbd_Fn + 11);
  17.         akbd_LeftK = (akbd_Fn + 12);
  18.         akbd_RightK = (akbd_Fn + 13);
  19.         akbd_DownK = (akbd_Fn + 14);
  20.         akbd_UpK = (akbd_Fn + 15);
  21.         akbd_Fn10 = ($1CA);
  22.         akbd_Fn11 = ($1CB);
  23.         akbd_Fn12 = ($1CC);
  24.         akbd_InsertK = ($1CD);
  25.         akbd_PrintK = (akbd_Fn+0);
  26.         akbd_PageUpK = (akbd_Sh+akbd_UpK);
  27.         akbd_PageDownK = (akbd_Sh+akbd_DownK);
  28.  
  29. (* ----------------------------- akbd_pollsh ----------------------------
  30.  * Description:  Checks if SHIFT key is depressed.
  31.  *               
  32.  * Parameters:   none
  33.  * Returns:      True if SHIFT depressed, False otherwise.
  34.  * Other Info:   none.
  35.  *)
  36. function akbd_pollsh : boolean; extern;
  37.  
  38.  
  39. (* ---------------------------- akbd_pollctl ----------------------------
  40.  * Description:   Checks if CTRL key is depressed.
  41.  *
  42.  * Parameters:    none
  43.  * Returns:       True if CTRL key depressed, False otherwise.
  44.  * Other Info:    none.
  45.  *)
  46. function akbd_pollctl : boolean; extern;
  47.  
  48.  
  49. (* --------------------------- akbd_pollkey -----------------------------
  50.  * Description:   Checks if user has typed ahead.
  51.  *
  52.  * Parameters:    int *keycode -- value of key pressed
  53.  * Returns:       True if user has typed ahead
  54.  *                Also passes value of key back through keycode.
  55.  * Other Info:    Function keys appear as values > 256 (produced by wimp)
  56.  *                See #defines above, for such values.
  57.  *)
  58. procedure akbd_pollkey(var keycode : integer) : boolean; extern;
  59.  
  60. #endif
  61.  
  62.  
  63. (* end akbd.h *)
  64.